unit UDesktop;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.pngimage, Vcl.ExtCtrls, Vcl.Buttons, DBGridEhGrouping, ToolCtrlsEh,
  DBGridEhToolCtrls, DynVarsEh, Data.DB, EhLibVCL, GridsEh, DBAxisGridsEh, DBGridEh, Vcl.ComCtrls, Vcl.StdCtrls;

type
  TfrmDesktop = class(TForm)
    Image1: TImage;
    SBSA002: TSpeedButton;
    SBBS010: TSpeedButton;
    SBPU002: TSpeedButton;
    SBBS005: TSpeedButton;
    SBPM001: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SBPM004: TSpeedButton;
    SBPM006: TSpeedButton;
    SBPM007: TSpeedButton;
    SBPM008: TSpeedButton;
    SBSH010: TSpeedButton;
    SBBS004: TSpeedButton;
    PageControl1: TPageControl;
    TSDefault: TTabSheet;
    TSPM: TTabSheet;
    TSMainFlow: TTabSheet;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    SBPM: TSpeedButton;
    SBBack: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    TSBS: TTabSheet;
    TSSA: TTabSheet;
    TSSH: TTabSheet;
    TSPU: TTabSheet;
    TSQC: TTabSheet;
    TSPR: TTabSheet;
    TSCN: TTabSheet;
    TSFA: TTabSheet;
    TSFR: TTabSheet;
    TSFP: TTabSheet;
    TSSF: TTabSheet;
    TSSM: TTabSheet;
    TSRD: TTabSheet;
    TSQR: TTabSheet;
    PageControl2: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Memo1: TMemo;
    procedure SBSA002Click(Sender: TObject);
    procedure SBPMClick(Sender: TObject);
    procedure SBBackClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDesktop: TfrmDesktop;

implementation

uses Udm,Umain;
{$R *.dfm}

procedure TfrmDesktop.FormCreate(Sender: TObject);
var
  i:integer;
  pagecount:integer;
begin
  pagecount:= self.PageControl1.PageCount;
  for I := 0 to pagecount-1 do
  begin
    self.PageControl1.Pages[i].TabVisible:=false;
  end;
  TSDefault.Show;
end;

procedure TfrmDesktop.SBBackClick(Sender: TObject);
begin
  TSMainFlow.show;
end;

procedure TfrmDesktop.SBPMClick(Sender: TObject);
begin
  TSPM.Show ;
end;

procedure TfrmDesktop.SBSA002Click(Sender: TObject);
begin
//
    Umain.frmMain.SBClick(Sender);
end;

initialization
  RegisterClass(TfrmDesktop);
finalization
   unRegisterClass(TfrmDesktop);

end.
